home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 10
/
CU Amiga Magazine's Super CD-ROM 10 (1997-03-15)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-05][50887 CUAM10].iso
/
CUCD
/
Graphics
/
WildFire
/
WildFireFPU
/
Macros
/
pictureInfo.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-01-11
|
932b
|
44 lines
/*
------------------------------------------------------------
pictureInfo.rexx
This script demonstrates the ARexx-pictureInfo-command.
Copyright ©1996 WK-Artworks
------------------------------------------------------------
*/
if ~show('P','Wildfire') then do
say " Error: The Wildfire-program must be started before executing this script."
exit
end
ch1='22'x
address 'Wildfire'
options results
t_getpicdrawer
preset=result
t_getfile preset
fn=result
if fn="" then exit
t_pictureinfo fn
t_getwidth
width=result
t_getheight
height=result
t_getdepth
depth=result
if ~open(script,"t:wf.tmp",'W') then do
/* message "Error: Couldn't open script"*/
exit
end
call writeln(script,"The selected picture")
call writeln(script,ch1 || fn || ch1)
call writeln(script,"has a resolution of " || width || "x" || height || "x" || depth || ".")
call close(script)
txt_text "t:wf.tmp"
txt_wait
address command "delete >NIL: t:wf.tmp"